<%

Function clubes_emular_jogos()

		id_rodada = rodada_get_atual()
		
		ranking_rodadas_estatisticas conexao_clubes, id_rodada
		
		str = "DELETE FROM torneios_jogos where realizado=0 and id_rodada<"&id_rodada
		Set rs = conexao_clubes.Execute(str)	
		
		str = "Select id FROM torneios_jogos where realizado=0 and id_rodada="&id_rodada
		Set rs = conexao_clubes.Execute(str)
		
		DIM placar_1, placar_2, id_jogo
		
		Do while not rs.eof
		
					placar_1 = 0
					placar_2 = 0
					id_jogo = rs("id")

					clubes_emular_jogo id_jogo, placar_1, placar_2
		
					str = "UPDATE torneios_jogos SET "
					str = str & "realizado='1', "
					str = str & "placar_1='"&placar_1&"', "
					str = str & "placar_2='"&placar_2&"' "
					str = str & " WHERE id="&id_jogo
					Set rsI = conexao_clubes.Execute(str)
					
					ranking_atualizar_jogo conexao_clubes, id_jogo
		
			rs.MoveNext
		Loop
		
		
		ranking_atualizar_posicao conexao_clubes, "ranking", "id_clube", ORDEM_Ranking, "AND temporada='1'"
		ranking_atualizar_posicao conexao_clubes, "ranking", "id_clube", ORDEM_Ranking, "AND temporada='-1'"
		
		
		
		str = "Select id FROM torneios_geral where status=1"
    		Set rs = conexao_clubes.Execute(str)
		
		Do while not rs.eof
				torneio_atualizar_torneio conexao_clubes, rs("id"), id_rodada
			rs.MoveNext
		Loop
		
		clubes_emular_jogos = 1

End Function

%>
